home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness:…ecision-Making Strategies / Workplace Effectiveness: Decision-Making Strategies.iso / pc / Files / History.dxr / 00005_Pushbutton with 3 states.ls < prev    next >
Encoding:
Text File  |  1998-12-16  |  1.7 KB  |  54 lines

  1. property upMember, downMember, button_active, theName
  2.  
  3. on mouseDown me
  4.   set the member of sprite the spriteNum of me to member the downMember of me
  5.   set the button_active of me to 1
  6. end
  7.  
  8. on mouseUp me
  9.   set the member of sprite the spriteNum of me to the theName of me && "on"
  10.   set the button_active of me to 0
  11.   updateStage()
  12. end
  13.  
  14. on mouseEnter me
  15.   if the button_active of me then
  16.     set the member of sprite the spriteNum of me to member the downMember of me
  17.   end if
  18. end
  19.  
  20. on mouseLeave me
  21.   if the button_active of me then
  22.     set the member of sprite the spriteNum of me to member the upMember of me
  23.   end if
  24. end
  25.  
  26. on mouseUpOutSide me
  27.   set the button_active of me to 0
  28. end
  29.  
  30. on beginSprite me
  31.   set the upMember of me to the member of sprite the spriteNum of me
  32.   set the theName of me to the name of member the member of sprite the spriteNum of me
  33.   set the button_active of me to 0
  34. end
  35.  
  36. on endSprite me
  37. end
  38.  
  39. on getPropertyDescriptionList
  40.   if the currentSpriteNum = 0 then
  41.     set memdefault to 0
  42.   else
  43.     set memref to the member of sprite the currentSpriteNum
  44.     set castLibNum to the castLibNum of memref
  45.     set memdefault to member (the memberNum of member memref + 1) of castLib castLibNum
  46.   end if
  47.   set p_list to [#downMember: [#comment: "Down state member:", #format: #graphic, #default: memdefault]]
  48.   return p_list
  49. end
  50.  
  51. on getBehaviorDescription
  52.   return "Makes a sprite work as a pushbutton with down state and mouse tracking. The sprite's initial castmember represents the button's normal state." & RETURN & "PARAMETERS:" & RETURN & "‚Ä¢ Down member - Choose the cast member to display when the button is pressed. The default value is the cast member immedietly following the sprite's current cast member."
  53. end
  54.